perm filename WHFIX.SAI[PUZ,HPM] blob sn#148362 filedate 1975-03-06 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "WHFIX"
C00003 ENDMK
CāŠ—;
BEGIN "WHFIX"
INTEGER I,J,K,L,M,N,FOO; BOOLEAN EOF;
STRING STR;

OPEN(1,"DSK",0,2,0,200,FOO,EOF);
LOOKUP(1,"WUTHER[PUZ,HPM]",FOO);
OPEN(2,"DSK",0,0,2,200,FOO,FOO);
ENTER(2,"WUTHER[PUZ,HPM]",FOO);
SETBREAK(1,'12&'14,'15&"-","INS");

DO OUT(2,INPUT(1,1)) UNTIL EOF;

CLOSE(1); CLOSE(2);

END;